4.3.1.3 (d sin)^m (a+b tan)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    118063,       2366]
NotebookOptionsPosition[    113951,       2255]
NotebookOutlinePosition[    115719,       2309]
CellTagsIndexPosition[    115676,       2306]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758553923824325`*^9, 
   3.5758553923824325`*^9}, {3.5758554525725164`*^9, 
   3.5758554525725164`*^9}, {3.5758555750526876`*^9, 
   3.5758555750526876`*^9}, {3.5758556596228065`*^9, 
   3.5758556596228065`*^9}, {3.575855725612899*^9, 3.575855725612899*^9}, {
   3.575855810993018*^9, 3.575855810993018*^9}, {3.57585588373312*^9, 
   3.57585588374312*^9}, {3.6118085012028246`*^9, 3.6118085085702457`*^9}, {
   3.675022357676506*^9, 3.675022357676506*^9}, {3.675102574863349*^9, 
   3.675102574863349*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.561265017585923*^9, 
   3.5612650326711497`*^9}, {3.561309913861724*^9, 3.561309913861724*^9}, 
   3.561310285412244*^9, 3.5613129177059293`*^9, {3.561422814190879*^9, 
   3.5614228294009*^9}, 3.561925845701116*^9, 3.5619260595434155`*^9, 
   3.563582501469946*^9, {3.5635826458501477`*^9, 3.5635826458601475`*^9}, {
   3.5635826838002005`*^9, 3.5635826838002005`*^9}, {3.5636401143299756`*^9, 
   3.5636401351716127`*^9}, {3.563640488668233*^9, 3.5636405189634867`*^9}, 
   3.563640727676253*^9, {3.56400126775679*^9, 3.5640012686867914`*^9}, {
   3.5664097415588894`*^9, 3.5664097555606594`*^9}, {3.566409889423624*^9, 
   3.566409891532736*^9}, {3.566410469315651*^9, 3.5664104695616646`*^9}, {
   3.5664105438889236`*^9, 3.5664105443159485`*^9}, {3.5664107570201955`*^9, 
   3.566410757222207*^9}, {3.5669476569667344`*^9, 3.5669476796179743`*^9}, {
   3.5669484243788824`*^9, 3.5669484245192823`*^9}, 3.566965332309761*^9, 
   3.6750223720733294`*^9, {3.6751024463713217`*^9, 3.675102446386922*^9}, {
   3.6751025556693153`*^9, 3.6751025928249807`*^9}, {3.675103872496704*^9, 
   3.675103872706704*^9}, {3.677261315201498*^9, 3.677261315451099*^9}, {
   3.6773009334157195`*^9, 3.677300935726852*^9}, {3.691635428898018*^9, 
   3.691635429108018*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.5636402263069725`*^9, 
   3.5636402320945826`*^9}, {3.5664097729606185`*^9, 3.566409776396814*^9}, {
   3.56694768875959*^9, 3.5669476973396053`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "2"], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "2"]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.5700615266964436`*^9, 
   3.570061544306468*^9}, {3.5700617554567633`*^9, 3.5700617886868105`*^9}, {
   3.5700621611073313`*^9, 3.570062184877365*^9}, {3.675102446418122*^9, 
   3.6751024464337215`*^9}}],

Cell[TextData[{
 "Basis:",
 " If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "m"], 
    RowBox[{"F", "[", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["b", "f"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "m"], 
        RowBox[{"F", "[", "x", "]"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["b", "2"], "+", 
          SuperscriptBox["x", "2"]}], ")"}], 
        RowBox[{
         FractionBox["m", "2"], "+", "1"}]]], ",", "x", ",", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.5607332335257874`*^9, 3.5607332335257874`*^9}, {3.5607332688458366`*^9, 
   3.560733281135854*^9}, {3.560733345915944*^9, 3.5607334415960784`*^9}, {
   3.5607850523197703`*^9, 3.56078505798258*^9}, {3.568838799196664*^9, 
   3.568838799196664*^9}, {3.5688391874072075`*^9, 3.5688392265572624`*^9}, {
   3.5688392643773155`*^9, 3.5688393870974874`*^9}, {3.568999398719596*^9, 
   3.5689994240072403`*^9}, {3.568999785288275*^9, 3.568999806005111*^9}, {
   3.5700614536563416`*^9, 3.5700615023864093`*^9}, {3.570061826476863*^9, 
   3.570061855586904*^9}, {3.5700619318870106`*^9, 3.5700619318870106`*^9}, {
   3.5700621981773834`*^9, 3.570062218567412*^9}, {3.57006231673755*^9, 
   3.57006231673755*^9}, {3.6750217623224535`*^9, 3.6750217623224535`*^9}, {
   3.675102446464922*^9, 3.675102446480522*^9}, {3.675102666966713*^9, 
   3.675102666966713*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["m", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563640513877877*^9, 3.563640513877877*^9}, {3.5664098954499474`*^9, 
   3.5664098954499474`*^9}, {3.566948398732437*^9, 3.5669484051128483`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["b", "f"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["x", "m"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "x"}], ")"}], "n"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["b", "2"], "+", 
           SuperscriptBox["x", "2"]}], ")"}], 
         RowBox[{
          FractionBox["m", "2"], "+", "1"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, 3.561227987771347*^9, {3.561340595399388*^9, 
   3.5613406051509457`*^9}, 3.5619258475711184`*^9, 3.561926060883417*^9, {
   3.5635826458901477`*^9, 3.563582645920148*^9}, {3.563640146403632*^9, 
   3.563640206635338*^9}, {3.5640012765968027`*^9, 3.5640013158368573`*^9}, {
   3.5664097864990063`*^9, 3.5664097932853947`*^9}, {3.566409937449648*^9, 
   3.56640996820636*^9}, {3.566410007219513*^9, 3.5664100708410654`*^9}, {
   3.5664105611489115`*^9, 3.5664105743376245`*^9}, {3.56694830948468*^9, 
   3.566948384832813*^9}, 3.5669484411177115`*^9, {3.566948553375509*^9, 
   3.5669485622675247`*^9}, 3.566948642826066*^9, {3.566948680016531*^9, 
   3.566948683978938*^9}, {3.5669653858098354`*^9, 3.5669654071898656`*^9}, {
   3.5669655178900204`*^9, 3.566965557020075*^9}, 3.5669656451101985`*^9, 
   3.5711019464541683`*^9, {3.6750220481318007`*^9, 3.6750220753253565`*^9}, {
   3.675102446496122*^9, 3.675102446511722*^9}, {3.6751025958357863`*^9, 
   3.675102599220992*^9}, 3.675102667933914*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.563640393632866*^9, 3.563640396971272*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "/", "f"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", "x"}], ")"}], "^", "n"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "^", "2"}], "+", 
             RowBox[{"x", "^", "2"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", "/", "2"}], "+", "1"}], ")"}]}]}]}], ",", "x"}], 
       "]"}], ",", "x", ",", 
      RowBox[{"b", "*", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "/", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5612280266714015`*^9, 3.5612280408014216`*^9}, {
   3.5613099207317333`*^9, 3.561309931941749*^9}, {3.5613406122153497`*^9, 
   3.561340613378416*^9}, 3.5613406447702117`*^9, 3.561422359510242*^9, {
   3.5614227681308146`*^9, 3.5614227763408256`*^9}, 3.5614228733109617`*^9, 
   3.561925789337036*^9, {3.563582645930148*^9, 3.563582645950148*^9}, 
   3.5635827193002505`*^9, 3.563584203012328*^9, 3.5636403669724197`*^9, {
   3.5636404015888805`*^9, 3.5636404405109487`*^9}, {3.563640547012336*^9, 
   3.5636405527843456`*^9}, {3.563644705777895*^9, 3.563644715995479*^9}, {
   3.5640013253968706`*^9, 3.564001349736905*^9}, {3.5664101738574734`*^9, 
   3.566410177768696*^9}, {3.5664102614169064`*^9, 3.5664102934350777`*^9}, 
   3.5664104870136633`*^9, {3.56641058673332*^9, 3.5664106053883624`*^9}, 
   3.566948717487797*^9, {3.5669487823995113`*^9, 3.5669487975627375`*^9}, {
   3.566965734110323*^9, 3.566965748950344*^9}, 3.5676495108376207`*^9, {
   3.571101954334179*^9, 3.5711019604041877`*^9}, {3.5760028344880714`*^9, 
   3.576002922138194*^9}, {3.6750221315515723`*^9, 3.6750221666295786`*^9}, {
   3.6751024660917563`*^9, 3.675102489324198*^9}, 3.675102519547451*^9, 
   3.6751026717091208`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      FractionBox[
       RowBox[{"m", "-", "1"}], "2"], "\[Element]", 
      "\[DoubleStruckCapitalZ]"}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, {3.5463150330395956`*^9, 3.546315033228606*^9}, {
   3.5634065509243546`*^9, 3.5634065644543734`*^9}, {3.566939803971632*^9, 
   3.5669398110536423`*^9}, {3.568662105597446*^9, 3.568662106787448*^9}, {
   3.5711040326550937`*^9, 3.5711040353650975`*^9}, 3.6750223732333956`*^9, {
   3.675102446542922*^9, 3.675102446542922*^9}, 3.6751026045094013`*^9, {
   3.675103874058707*^9, 3.6751038742487073`*^9}, {3.677261316683501*^9, 
   3.677261316886301*^9}, {3.67730093761896*^9, 3.677300937897976*^9}, {
   3.6916354303780193`*^9, 3.6916354334680243`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.561265017585923*^9, 
   3.5612650326711497`*^9}, {3.561309913861724*^9, 3.561309913861724*^9}, 
   3.561310285412244*^9, 3.5613129177059293`*^9, {3.561422814190879*^9, 
   3.5614228294009*^9}, 3.561925845701116*^9, 3.5619260595434155`*^9, 
   3.563582501469946*^9, {3.5635826458501477`*^9, 3.5635826458601475`*^9}, {
   3.5635826838002005`*^9, 3.5635826838002005`*^9}, {3.5636401143299756`*^9, 
   3.5636401351716127`*^9}, {3.563640488668233*^9, 3.5636405189634867`*^9}, 
   3.563640727676253*^9, {3.56400126775679*^9, 3.5640012686867914`*^9}, {
   3.5664097415588894`*^9, 3.5664097555606594`*^9}, {3.566409889423624*^9, 
   3.566409891532736*^9}, {3.566410469315651*^9, 3.5664104695616646`*^9}, {
   3.566939601096325*^9, 3.5669396022073307`*^9}, 3.5669397867115927`*^9, {
   3.567649530337648*^9, 3.5676495305076485`*^9}, {3.5686621080674496`*^9, 
   3.568662111887455*^9}, {3.57110406554514*^9, 3.5711040716151485`*^9}, 
   3.6750223806978226`*^9, {3.675102446558522*^9, 3.675102446574122*^9}, 
   3.6751026059290037`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.5636402263069725`*^9, 
   3.5636402320945826`*^9}, {3.5664097729606185`*^9, 3.566409776396814*^9}, {
   3.5669396918574557`*^9, 3.566939695557461*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563640513877877*^9, 3.563640513877877*^9}, {3.5664098954499474`*^9, 
   3.5664098954499474`*^9}, {3.566939610497342*^9, 3.566939610497342*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"Tan", "[", 
               RowBox[{"e", "+", 
                RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], ",", 
         "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, 3.561227987771347*^9, {3.561340595399388*^9, 
   3.5613406051509457`*^9}, 3.5619258475711184`*^9, 3.561926060883417*^9, {
   3.5635826458901477`*^9, 3.563582645920148*^9}, {3.563640146403632*^9, 
   3.563640206635338*^9}, {3.5640012765968027`*^9, 3.5640013158368573`*^9}, {
   3.5664097864990063`*^9, 3.5664097932853947`*^9}, {3.566409937449648*^9, 
   3.56640996820636*^9}, {3.566410007219513*^9, 3.5664100708410654`*^9}, {
   3.566939627817366*^9, 3.5669396337573743`*^9}, {3.5676497220579166`*^9, 
   3.5676497239279194`*^9}, {3.675102446605322*^9, 3.675102446620922*^9}, {
   3.6751026080350075`*^9, 3.675102610031811*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.563640393632866*^9, 3.563640396971272*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
       "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5612280266714015`*^9, 3.5612280408014216`*^9}, {
   3.5613099207317333`*^9, 3.561309931941749*^9}, {3.5613406122153497`*^9, 
   3.561340613378416*^9}, 3.5613406447702117`*^9, 3.561422359510242*^9, {
   3.5614227681308146`*^9, 3.5614227763408256`*^9}, 3.5614228733109617`*^9, 
   3.561925789337036*^9, {3.563582645930148*^9, 3.563582645950148*^9}, 
   3.5635827193002505`*^9, 3.563584203012328*^9, 3.5636403669724197`*^9, {
   3.5636404015888805`*^9, 3.5636404405109487`*^9}, {3.563640547012336*^9, 
   3.5636405527843456`*^9}, {3.563644705777895*^9, 3.563644715995479*^9}, {
   3.5640013253968706`*^9, 3.564001349736905*^9}, {3.5664101738574734`*^9, 
   3.566410177768696*^9}, {3.5664102614169064`*^9, 3.5664102934350777`*^9}, 
   3.5664104870136633`*^9, {3.566939612597345*^9, 3.5669396139473467`*^9}, 
   3.5669397211915007`*^9, {3.566941042616315*^9, 3.5669410531889195`*^9}, {
   3.5676497277979245`*^9, 3.567649729587927*^9}, {3.5711041179052134`*^9, 
   3.5711041392952433`*^9}, {3.675102466107356*^9, 3.6751024893709974`*^9}, 
   3.6751025208266535`*^9, 3.715379583196301*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.561265017585923*^9, 
   3.5612650326711497`*^9}, {3.561309913861724*^9, 3.561309913861724*^9}, 
   3.561310285412244*^9, 3.5613129177059293`*^9, {3.561422814190879*^9, 
   3.5614228294009*^9}, 3.561925845701116*^9, 3.5619260595434155`*^9, 
   3.563582501469946*^9, {3.5635826458501477`*^9, 3.5635826458601475`*^9}, {
   3.5635826838002005`*^9, 3.5635826838002005`*^9}, {3.5636401143299756`*^9, 
   3.5636401351716127`*^9}, {3.563640488668233*^9, 3.5636405189634867`*^9}, 
   3.563640727676253*^9, {3.56400126775679*^9, 3.5640012686867914`*^9}, {
   3.5664097415588894`*^9, 3.5664097555606594`*^9}, {3.566409889423624*^9, 
   3.566409891532736*^9}, {3.566410469315651*^9, 3.5664104695616646`*^9}, {
   3.5669396551174045`*^9, 3.5669396644674177`*^9}, 3.566939787561594*^9, {
   3.5676495317276497`*^9, 3.5676495319076505`*^9}, {3.568662109217451*^9, 
   3.568662110317453*^9}, {3.5711041666752815`*^9, 3.57110417262529*^9}, 
   3.6750223816808786`*^9, {3.6751024466521225`*^9, 3.6751024466521225`*^9}, 
   3.6751026134482174`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.5636402263069725`*^9, 
   3.5636402320945826`*^9}, {3.5664097729606185`*^9, 3.566409776396814*^9}, {
   3.5711041880253115`*^9, 3.5711041894153132`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Tan", "[", "z", "]"}]}]}], "\[Equal]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"Cos", "[", "z", "]"}]}], "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", "z", "]"}]}]}], 
    RowBox[{"Cos", "[", "z", "]"}]]}]], "Input",
  CellChangeTimes->{{3.5612260367936153`*^9, 3.5612260481036315`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260758236704`*^9}, {3.561228000431365*^9, 
   3.561228009581378*^9}, {3.5618245933726854`*^9, 3.561824597642691*^9}, {
   3.5635826458701477`*^9, 3.563582645880148*^9}, {3.563582684320202*^9, 
   3.563582684320202*^9}, {3.563582856690443*^9, 3.563582856690443*^9}, {
   3.563640313105525*^9, 3.563640330827156*^9}, {3.5664098107293468`*^9, 
   3.5664098711236925`*^9}}],

Cell["Note: This rule sucks...", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.5636402263069725`*^9, 
   3.5636402320945826`*^9}, {3.5664097729606185`*^9, 3.566409776396814*^9}, {
   3.5711041880253115`*^9, 3.5711041894153132`*^9}, {3.571104241275386*^9, 
   3.571104248515396*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563640513877877*^9, 3.563640513877877*^9}, {3.5664098954499474`*^9, 
   3.5664098954499474`*^9}, {3.566939661107413*^9, 3.566939661107413*^9}, {
   3.5711041797952995`*^9, 3.5711041797952995`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}], "+", 
            RowBox[{"b", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}], 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "n"]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, 3.561227987771347*^9, {3.561340595399388*^9, 
   3.5613406051509457`*^9}, 3.5619258475711184`*^9, 3.561926060883417*^9, {
   3.5635826458901477`*^9, 3.563582645920148*^9}, {3.563640146403632*^9, 
   3.563640206635338*^9}, {3.5640012765968027`*^9, 3.5640013158368573`*^9}, {
   3.5664097864990063`*^9, 3.5664097932853947`*^9}, {3.566409937449648*^9, 
   3.56640996820636*^9}, {3.566410007219513*^9, 3.5664100708410654`*^9}, {
   3.675102446683322*^9, 3.6751024467301226`*^9}, {3.675102615460621*^9, 
   3.6751026182862263`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.563640393632866*^9, 3.563640396971272*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], "+", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "^", "n"}]}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"LtQ", "[", 
        RowBox[{"m", ",", "5"}], "]"}], " ", "&&", " ", 
       RowBox[{"GtQ", "[", 
        RowBox[{"n", ",", 
         RowBox[{"-", "4"}]}], "]"}]}], " ", "||", " ", 
      RowBox[{
       RowBox[{"EqQ", "[", 
        RowBox[{"m", ",", "5"}], "]"}], " ", "&&", " ", 
       RowBox[{"EqQ", "[", 
        RowBox[{"n", ",", 
         RowBox[{"-", "1"}]}], "]"}]}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5612280266714015`*^9, 3.5612280408014216`*^9}, {
   3.5613099207317333`*^9, 3.561309931941749*^9}, {3.5613406122153497`*^9, 
   3.561340613378416*^9}, 3.5613406447702117`*^9, 3.561422359510242*^9, {
   3.5614227681308146`*^9, 3.5614227763408256`*^9}, 3.5614228733109617`*^9, 
   3.561925789337036*^9, {3.563582645930148*^9, 3.563582645950148*^9}, 
   3.5635827193002505`*^9, 3.563584203012328*^9, 3.5636403669724197`*^9, {
   3.5636404015888805`*^9, 3.5636404405109487`*^9}, {3.563640547012336*^9, 
   3.5636405527843456`*^9}, {3.563644705777895*^9, 3.563644715995479*^9}, {
   3.5640013253968706`*^9, 3.564001349736905*^9}, {3.5664101738574734`*^9, 
   3.566410177768696*^9}, {3.5664102614169064`*^9, 3.5664102934350777`*^9}, 
   3.5664104870136633`*^9, {3.56693964505739*^9, 3.5669396745974317`*^9}, {
   3.566941029085541*^9, 3.5669410305646257`*^9}, 3.5669412204714875`*^9, {
   3.5711023678547583`*^9, 3.5711023719247637`*^9}, {3.57110252599498*^9, 
   3.5711025312049866`*^9}, {3.5711026115250993`*^9, 3.571102625705119*^9}, {
   3.571102749675293*^9, 3.571102749845293*^9}, {3.571104212005345*^9, 
   3.571104220525357*^9}, {3.5711042613654137`*^9, 3.5711043324655137`*^9}, {
   3.571107275451635*^9, 3.5711072942516613`*^9}, {3.6751024661385565`*^9, 
   3.675102489402198*^9}, 3.6751025216846547`*^9, {3.7153795930588655`*^9, 
   3.715379630280994*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, 3.562030414929576*^9, {3.562087519391868*^9, 
     3.56208753490189*^9}, 3.5633195976876526`*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5620857174843144`*^9, 3.562085767261161*^9}, {3.562087004211147*^9, 
   3.562087015441162*^9}, {3.5620870737812443`*^9, 3.562087074561245*^9}, {
   3.562093071559641*^9, 3.5620930763096476`*^9}, {3.5633195762576227`*^9, 
   3.5633195767176237`*^9}, {3.5758518293429356`*^9, 
   3.5758518293429356`*^9}, {3.575851862702982*^9, 3.575851863272983*^9}, {
   3.575851940253091*^9, 3.5758519445030966`*^9}, {3.5758519977931714`*^9, 
   3.5758519977931714`*^9}, {3.5758521091233273`*^9, 3.575852120603343*^9}, {
   3.5967424751677313`*^9, 3.596742507207776*^9}, {3.664986833844*^9, 
   3.664986884043871*^9}, {3.6649881692153783`*^9, 3.6649881897235518`*^9}, {
   3.6649987810454206`*^9, 3.6649987810454206`*^9}, {3.6654384722168903`*^9, 
   3.665438472736891*^9}, {3.665439307833086*^9, 3.6654393087930875`*^9}, {
   3.675102888527104*^9, 3.675102888527104*^9}, {3.675103464012113*^9, 
   3.675103464012113*^9}, {3.675103702500458*^9, 3.675103702500458*^9}, {
   3.6751041771622314`*^9, 3.6751041771622314`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, 3.563396812908344*^9, 3.59674766011499*^9, {
   3.613099721338788*^9, 3.6130997216187887`*^9}, 3.6131011113908253`*^9, 
   3.613154225057025*^9, {3.614296005243228*^9, 3.6142960064432964`*^9}, {
   3.6649925358281345`*^9, 3.664992535838135*^9}, 3.664992668576727*^9, {
   3.6650036251084847`*^9, 3.6650036284376755`*^9}, 3.6650036795415983`*^9, 
   3.665003757264044*^9, {3.665003881107127*^9, 3.665003884233306*^9}, {
   3.665004502473667*^9, 3.665004515121391*^9}, {3.665004688429303*^9, 
   3.6650046893543563`*^9}, 3.6650768527091565`*^9, {3.6650787927691216`*^9, 
   3.6650788084940214`*^9}, {3.665078902562402*^9, 3.6650789180022845`*^9}, {
   3.6650792020685325`*^9, 3.6650792020685325`*^9}, {3.6654375532205715`*^9, 
   3.665437561520584*^9}, 3.6654378536760025`*^9, {3.6654379804831843`*^9, 
   3.6654379812131853`*^9}, {3.6654385949470654`*^9, 3.665438626861111*^9}, 
   3.66543933098412*^9, 3.675102889385105*^9, 3.6751034656921153`*^9, 
   3.6751037025104575`*^9, {3.6751039452208996`*^9, 3.6751039461009007`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}, {3.6751037025804577`*^9, 3.6751037249924903`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", 
         RowBox[{"Csc", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "d"], ")"}], "m"]}], ")"}]}], 
   "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.4956612341427097`*^9, 3.4956612366427135`*^9}, {
   3.495661466643035*^9, 3.4956615179331074`*^9}, {3.495662078776306*^9, 
   3.4956620926663256`*^9}, {3.495662256946555*^9, 3.495662259396559*^9}, {
   3.4956625025768995`*^9, 3.4956625261869326`*^9}, {3.4956632462279406`*^9, 
   3.4956633094980288`*^9}, 3.495663998918994*^9, {3.4956644892796803`*^9, 
   3.4956645035697007`*^9}, 3.495664644999899*^9, {3.4956649976003923`*^9, 
   3.4956650260304317`*^9}, 3.495665112520553*^9, 3.495665461771042*^9, {
   3.495666875785483*^9, 3.4956668919003115`*^9}, {3.5325377187562304`*^9, 
   3.5325377350741634`*^9}, {3.532537836964991*^9, 3.532537836964991*^9}, {
   3.5418772447423954`*^9, 3.5418772447423954`*^9}, {3.5418772765424395`*^9, 
   3.5418772800524445`*^9}, {3.5418790150948734`*^9, 
   3.5418790499849224`*^9}, {3.541880174556497*^9, 3.5418801814265065`*^9}, {
   3.541880943257573*^9, 3.541880943257573*^9}, {3.541886992360258*^9, 
   3.541887025940305*^9}, {3.567490246959696*^9, 3.5674902479096966`*^9}, {
   3.664475805409972*^9, 3.664475805409972*^9}, {3.664476461078474*^9, 
   3.664476464231654*^9}, {3.6644767068315306`*^9, 3.6644767095056834`*^9}, {
   3.6654375938596306`*^9, 3.6654375956196327`*^9}, {3.6654386982182136`*^9, 
   3.6654386992082148`*^9}, {3.6654388641494513`*^9, 
   3.6654388641494513`*^9}, {3.665439358535159*^9, 3.665439362956166*^9}, {
   3.675103470278122*^9, 3.675103470278122*^9}, {3.675103658937395*^9, 
   3.675103658937395*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.4978083089530945`*^9, 
   3.4978083143531017`*^9}, {3.4978084473132877`*^9, 
   3.4978084750933266`*^9}, {3.497808510103376*^9, 3.4978085176833863`*^9}, {
   3.4978090871541834`*^9, 3.4978091125642195`*^9}, {3.4978091437242627`*^9, 
   3.497809166464295*^9}, 3.497809198114339*^9, {3.4978093447445445`*^9, 
   3.4978093512745533`*^9}, {3.497809459704705*^9, 3.4978094655147133`*^9}, 
   3.4978096024249053`*^9, {3.4978096874850245`*^9, 3.49780970627505*^9}, {
   3.49800845286043*^9, 3.498008453750431*^9}, {3.567094006345663*^9, 
   3.567094006345663*^9}, {3.665000002525285*^9, 3.6650000038853626`*^9}, {
   3.6650000784006248`*^9, 3.6650000785456333`*^9}, {3.6650021829920006`*^9, 
   3.6650021829920006`*^9}, {3.665003918951292*^9, 3.665003918951292*^9}, {
   3.665004590512703*^9, 3.665004590512703*^9}, {3.6650789318130746`*^9, 
   3.6650789318130746`*^9}, {3.665079204982699*^9, 3.665079204982699*^9}, {
   3.6654376971377783`*^9, 3.6654376971377783`*^9}, {3.6654386328811197`*^9, 
   3.6654386328811197`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", 
        RowBox[{"Csc", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"FracPart", "[", "m", "]"}]]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "d"], ")"}], 
    RowBox[{"FracPart", "[", "m", "]"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "d"], ")"}], "m"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5633886271303563`*^9, 3.5633887007624855`*^9}, {3.5633891677251387`*^9, 
   3.5633891925451736`*^9}, 3.5967476646849966`*^9, 3.596747710585061*^9, {
   3.5967479530654*^9, 3.596747968625422*^9}, {3.596748193595737*^9, 
   3.596748199005745*^9}, {3.6649925358951387`*^9, 3.6649925359681425`*^9}, {
   3.6649926685957284`*^9, 3.6649926685997286`*^9}, {3.6650037523147607`*^9, 
   3.66500382170973*^9}, {3.6650040507058277`*^9, 3.6650040789904456`*^9}, 
   3.665004537506671*^9, {3.665004607407669*^9, 3.665004669744235*^9}, {
   3.6650769203670263`*^9, 3.665076978289339*^9}, {3.665079279023934*^9, 
   3.6650793065055056`*^9}, {3.665079337458276*^9, 3.6650793477958674`*^9}, {
   3.665437632239685*^9, 3.6654376732187433`*^9}, 3.6654378542560034`*^9, {
   3.665437987270194*^9, 3.6654379909201994`*^9}, {3.665438642273133*^9, 
   3.665438691288204*^9}, {3.665438764634309*^9, 3.665438777281327*^9}, {
   3.6654388199913883`*^9, 3.6654388285313997`*^9}, 3.6654388843974805`*^9, {
   3.665439332524122*^9, 3.665439350926148*^9}, {3.6751028900091066`*^9, 
   3.6751028905083075`*^9}, {3.675103471238124*^9, 3.6751034718381243`*^9}, {
   3.6751036639174023`*^9, 3.675103666537406*^9}, {3.6751037026204576`*^9, 
   3.675103702630458*^9}, {3.6751039776549454`*^9, 3.675103990216964*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.665004105071937*^9, 3.665004109207174*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"FracPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "/", "d"}], ")"}], "^", 
     RowBox[{"FracPart", "[", "m", "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}], "/", "d"}], ")"}], "^", "m"}]}],
       ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "d", ",", "e", ",", "f", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.563389015634926*^9, 3.5633890160749264`*^9}, 
   3.563389060894989*^9, 3.563389107955055*^9, {3.563389216425207*^9, 
   3.5633892231252165`*^9}, 3.563393581121319*^9, 3.563393658761428*^9, {
   3.563393884371744*^9, 3.5633939298743076`*^9}, 3.5633939787243757`*^9, {
   3.596762994575632*^9, 3.5967630098956537`*^9}, 3.596763042245699*^9, {
   3.6649925594244843`*^9, 3.6649925594844875`*^9}, {3.6649926412751656`*^9, 
   3.664992641281166*^9}, 3.664992759211911*^9, 3.6649927905657043`*^9, 
   3.6650038679953775`*^9, {3.665003926206707*^9, 3.6650039471619053`*^9}, {
   3.6650040002129393`*^9, 3.665004032061761*^9}, 3.6650041200357933`*^9, 
   3.6650044278704004`*^9, {3.665004709119487*^9, 3.6650047826566925`*^9}, 
   3.6650048366767826`*^9, {3.6650770203497453`*^9, 3.6650770460162134`*^9}, {
   3.6650793678480144`*^9, 3.6650794307376113`*^9}, {3.6652074280307508`*^9, 
   3.665207463916802*^9}, {3.665437703437787*^9, 3.6654377272188215`*^9}, 
   3.6654378151249475`*^9, {3.665437904683076*^9, 3.6654379093530827`*^9}, {
   3.6654379938102036`*^9, 3.665438014272233*^9}, {3.6654389180935287`*^9, 
   3.665438954668581*^9}, 3.66543899638264*^9, {3.665439061060733*^9, 
   3.665439085859769*^9}, {3.665439199623932*^9, 3.6654392072049427`*^9}, {
   3.665439381786192*^9, 3.6654394075072293`*^9}, 3.675103208227743*^9, 
   3.67510325524681*^9, 3.6751032923268642`*^9, {3.6751034879511476`*^9, 
   3.675103508313177*^9}, 3.675103543679228*^9, {3.67510366942741*^9, 
   3.675103671804414*^9}, {3.6751037026504574`*^9, 3.6751037026604576`*^9}, {
   3.6751039974799747`*^9, 3.6751040443790417`*^9}, 3.6772612865006475`*^9, 
   3.677346343757056*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, 3.562030414929576*^9, {3.562087519391868*^9, 
     3.56208753490189*^9}, 3.5633195976876526`*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5620857174843144`*^9, 3.562085767261161*^9}, {3.562087004211147*^9, 
   3.562087015441162*^9}, {3.5620870737812443`*^9, 3.562087074561245*^9}, {
   3.562093071559641*^9, 3.5620930763096476`*^9}, {3.5633195762576227`*^9, 
   3.5633195767176237`*^9}, {3.5758518293429356`*^9, 
   3.5758518293429356`*^9}, {3.575851862702982*^9, 3.575851863272983*^9}, {
   3.575851940253091*^9, 3.5758519445030966`*^9}, {3.5758519977931714`*^9, 
   3.5758519977931714`*^9}, {3.5758521091233273`*^9, 3.575852120603343*^9}, {
   3.5967424751677313`*^9, 3.596742507207776*^9}, {3.664986833844*^9, 
   3.664986884043871*^9}, {3.6649881692153783`*^9, 3.6649881897235518`*^9}, {
   3.6649987810454206`*^9, 3.6649987810454206`*^9}, {3.6654384722168903`*^9, 
   3.665438472736891*^9}, {3.665439307833086*^9, 3.6654393087930875`*^9}, {
   3.675102888527104*^9, 3.675102888527104*^9}, {3.675103464012113*^9, 
   3.675103464012113*^9}, {3.675103702500458*^9, 3.675103702500458*^9}, {
   3.6751041771622314`*^9, 3.675104201701267*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.561265017585923*^9, 
   3.5612650326711497`*^9}, {3.561309913861724*^9, 3.561309913861724*^9}, 
   3.561310285412244*^9, 3.5613129177059293`*^9, {3.561422814190879*^9, 
   3.5614228294009*^9}, 3.561925845701116*^9, 3.5619260595434155`*^9, 
   3.563582501469946*^9, {3.5635826458501477`*^9, 3.5635826458601475`*^9}, {
   3.5635826838002005`*^9, 3.5635826838002005`*^9}, {3.5636401143299756`*^9, 
   3.5636401351716127`*^9}, {3.563640488668233*^9, 3.5636405189634867`*^9}, 
   3.563640727676253*^9, {3.56400126775679*^9, 3.5640012686867914`*^9}, {
   3.5664097415588894`*^9, 3.5664097555606594`*^9}, {3.566409889423624*^9, 
   3.566409891532736*^9}, {3.566410469315651*^9, 3.5664104695616646`*^9}, {
   3.5664105438889236`*^9, 3.5664105443159485`*^9}, {3.5664107570201955`*^9, 
   3.566410757222207*^9}, {3.5664109510811977`*^9, 3.5664109686741877`*^9}, {
   3.566411086119379*^9, 3.5664110864043956`*^9}, {3.628472140471051*^9, 
   3.6284721406210513`*^9}, {3.6576643582331896`*^9, 3.657664358426201*^9}, {
   3.664241235536049*^9, 3.66424123575445*^9}, {3.6750223842260246`*^9, 
   3.675022384461038*^9}, {3.6751024467457223`*^9, 3.6751024467613225`*^9}, {
   3.6751026224866333`*^9, 3.675102629678246*^9}, {3.675103875468709*^9, 
   3.6751038756287093`*^9}, {3.6751042056112723`*^9, 3.6751042058412724`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.5636402263069725`*^9, 
   3.5636402320945826`*^9}, {3.5664097729606185`*^9, 3.566409776396814*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Tan", "[", "z", "]"}]}]}], "\[Equal]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"Cos", "[", "z", "]"}]}], "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", "z", "]"}]}]}], 
    RowBox[{"Cos", "[", "z", "]"}]]}]], "Input",
  CellChangeTimes->{{3.5612260367936153`*^9, 3.5612260481036315`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260758236704`*^9}, {3.561228000431365*^9, 
   3.561228009581378*^9}, {3.5618245933726854`*^9, 3.561824597642691*^9}, {
   3.5635826458701477`*^9, 3.563582645880148*^9}, {3.563582684320202*^9, 
   3.563582684320202*^9}, {3.563582856690443*^9, 3.563582856690443*^9}, {
   3.563640313105525*^9, 3.563640330827156*^9}, {3.5664098107293468`*^9, 
   3.5664098711236925`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563640513877877*^9, 3.563640513877877*^9}, {3.5664098954499474`*^9, 
   3.5664098954499474`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], 
        RowBox[{"m", "-", "n"}]], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "p"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, 3.561227987771347*^9, {3.561340595399388*^9, 
   3.5613406051509457`*^9}, 3.5619258475711184`*^9, 3.561926060883417*^9, {
   3.5635826458901477`*^9, 3.563582645920148*^9}, {3.563640146403632*^9, 
   3.563640206635338*^9}, {3.5640012765968027`*^9, 3.5640013158368573`*^9}, {
   3.5664097864990063`*^9, 3.5664097932853947`*^9}, {3.566409937449648*^9, 
   3.56640996820636*^9}, {3.566410007219513*^9, 3.5664100708410654`*^9}, {
   3.5664105611489115`*^9, 3.5664105743376245`*^9}, {3.5664109783687315`*^9, 
   3.5664109879602804`*^9}, {3.6751024467925224`*^9, 3.675102446839322*^9}, {
   3.6751026260902395`*^9, 3.675102633656253*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.563640393632866*^9, 3.563640396971272*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "p"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5612280266714015`*^9, 3.5612280408014216`*^9}, {
   3.5613099207317333`*^9, 3.561309931941749*^9}, {3.5613406122153497`*^9, 
   3.561340613378416*^9}, 3.5613406447702117`*^9, 3.561422359510242*^9, {
   3.5614227681308146`*^9, 3.5614227763408256`*^9}, 3.5614228733109617`*^9, 
   3.561925789337036*^9, {3.563582645930148*^9, 3.563582645950148*^9}, 
   3.5635827193002505`*^9, 3.563584203012328*^9, 3.5636403669724197`*^9, {
   3.5636404015888805`*^9, 3.5636404405109487`*^9}, {3.563640547012336*^9, 
   3.5636405527843456`*^9}, {3.563644705777895*^9, 3.563644715995479*^9}, {
   3.5640013253968706`*^9, 3.564001349736905*^9}, {3.5664101738574734`*^9, 
   3.566410177768696*^9}, {3.5664102614169064`*^9, 3.5664102934350777`*^9}, 
   3.5664104870136633`*^9, {3.56641058673332*^9, 3.5664106053883624`*^9}, {
   3.5664110565056987`*^9, 3.566411070507495*^9}, {3.5664111105307484`*^9, 
   3.566411115581008*^9}, {3.6751024662009563`*^9, 3.6751024894489975`*^9}, 
   3.675102522542656*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"cot", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "p"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], "+", 
         RowBox[{"b", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5612280266714015`*^9, 3.5612280408014216`*^9}, {
   3.5613099207317333`*^9, 3.561309931941749*^9}, {3.5613406122153497`*^9, 
   3.561340613378416*^9}, 3.5613406447702117`*^9, 3.561422359510242*^9, {
   3.5614227681308146`*^9, 3.5614227763408256`*^9}, 3.5614228733109617`*^9, 
   3.561925789337036*^9, {3.563582645930148*^9, 3.563582645950148*^9}, 
   3.5635827193002505`*^9, 3.563584203012328*^9, 3.5636403669724197`*^9, {
   3.5636404015888805`*^9, 3.5636404405109487`*^9}, {3.563640547012336*^9, 
   3.5636405844836016`*^9}, 3.563644672858012*^9, {3.5636447180225954`*^9, 
   3.563644718770638*^9}, {3.5640013282368746`*^9, 3.564001328676875*^9}, {
   3.564001364946926*^9, 3.564001377846944*^9}, {3.566410303642649*^9, 
   3.5664103403176994`*^9}, 3.5664104890987625`*^9, {3.5664105895004787`*^9, 
   3.5664106224843187`*^9}, {3.5664106996569633`*^9, 3.5664107051392775`*^9}, 
   3.5664110760908146`*^9, {3.566411128960744*^9, 3.5664111529761057`*^9}, {
   3.6751024662165565`*^9, 3.6751024894645977`*^9}, 3.6751025229482565`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1912, 961},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "e", " ", "sin", "(", "c", "+", "d", " ", "x", ")", 
      ")", "^", "m", " ", "(", "a", "+", "b", " ", "tan", "(", "c", "+", "d", 
      " ", "x", ")", ")", "^", "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6801, 111, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7371, 135, 5110, 85, 53, "Subsubtitle"],
Cell[12484, 222, 581, 8, 35, "Subsubsection"],
Cell[13068, 232, 1223, 29, 44, "Subsubsection"],
Cell[14294, 263, 2447, 63, 53, "Subsubsection"],
Cell[16744, 328, 1548, 25, 35, "Subsubsection"],
Cell[18295, 355, 3254, 69, 79, "Subsubtitle"],
Cell[21552, 426, 817, 11, 35, "Subsubsection"],
Cell[22372, 439, 3403, 76, 104, "Code"],
Cell[25778, 517, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[25904, 524, 4201, 72, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[30130, 600, 5092, 88, 53, "Subsubtitle"],
Cell[35225, 690, 574, 8, 35, "Subsubsection"],
Cell[35802, 700, 1550, 25, 26, "Subsubsection"],
Cell[37355, 727, 2760, 59, 53, "Subsubtitle"],
Cell[40118, 788, 817, 11, 35, "Subsubsection"],
Cell[40938, 801, 3160, 70, 104, "Code"],
Cell[44101, 873, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[44227, 880, 5096, 88, 53, "Subsubtitle"],
Cell[49326, 970, 576, 8, 35, "Subsubsection"],
Cell[49905, 980, 1173, 26, 39, "Subsubsection"],
Cell[51081, 1008, 619, 9, 25, "Subsubsection"],
Cell[51703, 1019, 1752, 31, 39, "Subsubsection"],
Cell[53458, 1052, 2872, 64, 64, "Subsubtitle"],
Cell[56333, 1118, 817, 11, 35, "Subsubsection"],
Cell[57153, 1131, 4108, 95, 104, "Code"],
Cell[61264, 1228, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[61380, 1234, 89, 2, 25, "Subsubsection"],
Cell[61472, 1238, 6492, 106, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[67989, 1348, 5404, 90, 53, "Subsubtitle"],
Cell[73396, 1440, 1311, 19, 35, "Subsubsection"],
Cell[74710, 1461, 2703, 51, 39, "Subsubsection"],
Cell[77416, 1514, 1532, 25, 26, "Subsubsection"],
Cell[78951, 1541, 4122, 86, 81, "Subsubtitle"],
Cell[83076, 1629, 817, 11, 35, "Subsubsection"],
Cell[83896, 1642, 4210, 93, 104, "Code"],
Cell[88109, 1737, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[88213, 1742, 89, 2, 25, "Subsubsection"],
Cell[88305, 1746, 6555, 108, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[94885, 1858, 5262, 88, 53, "Subsubtitle"],
Cell[100150, 1948, 527, 7, 35, "Subsubsection"],
Cell[100680, 1957, 1173, 26, 39, "Subsubsection"],
Cell[101856, 1985, 1479, 24, 26, "Subsubsection"],
Cell[103338, 2011, 3056, 68, 53, "Subsubtitle"],
Cell[106397, 2081, 817, 11, 35, "Subsubsection"],
Cell[107217, 2094, 3286, 76, 104, "Code"],
Cell[110506, 2172, 3337, 76, 114, "Code"],
Cell[113846, 2250, 89, 2, 35, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)